home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 1 (Walnut Creek)
/
Aminet - June 1993 [Walnut Creek].iso
/
aminet
/
text
/
tex
/
tpp410n.lha
/
Install_D
< prev
next >
Wrap
Text File
|
1993-01-17
|
8KB
|
355 lines
; $VER: Installation TPP V4.10 (17.01.93)
.BRA {
.KET }
; Vorgabewurzelverzeichnis
Set Vorgabe "work:tpp"
; Ein paar interne Flags
Set ARexxIstInstalliert Ja
Set PaxTeXIstInstalliert Ja
Set MakeIndexIstInstalliert Ja
Set Update Nein
Set LHAbin "c/LHA -q -m -a x"
Set LangArc TPPDeutsch.lha
Set GlobArc TPPGlobal.lha
Lab Anfang
; In welchem Verzeichnis soll `TeXt Plus Professional' landen?
Echo "TeXt Plus Professional V4.10*n"
Echo "Falls dies ein Update von 4.00 auf 4.10 ist,"
Echo "werden die *.Config und *.parse Dateien nicht"
Echo "überschrieben.*n"
Echo "Bitte wählen Sie das Verzeichnis aus, in das"
Echo "TeXt Plus Professional installiert werden soll."
Echo "Schublade (<Return> = $Vorgabe) ? " NoLine
; Vorherigen Wert löschen
UnSet Schublade
; Zielschublade einlesen
Set >NIL: Schublade ?
; Falls nur <Return> gedrückt wurde, wird der Vorgabewert verwendet
If "$Schublade" EQ "*$Schublade"
Set Schublade $Vorgabe
EndIf
; Den ursprünglichen Pfad bitte merken
Set Startpfad $Schublade
; Jetzt wird nachgeprüft, ob wir es mit einem Pfad inklusive eines
; Schubladennamens, oder mit einem Wurzelverzeichnis zu tun haben.
FailAt 21
Assign >NIL: ${Schublade} Exists
If FAIL
FailAt 10
; Existiert die Schublade bereits?
If NOT EXISTS $Schublade
FailAt 21
; Versuchen wir, die Schublade anzulegen.
MakeDir "$Schublade"
; Das war nichts ...
If FAIL
Echo "*NDie Schublade $Schublade konnte nicht angelegt werden!"
FailAt 10
; Nochmal das ganze, bitte.
Skip Back Anfang
EndIf
Else
; ein Update
Set Update Ja
EndIf
; Wir hängen dem Schubladennamen noch einen Schrägstrich an.
Set Temp "$Schublade/"
Set Schublade $Temp
UnSet Temp
Else
; ein Update
Set Update Ja
EndIf
; Zuerst werden die deutschen Programme installiert
; Das Hauptprogramm wird entpackt.
$LHAbin $LangArc bin/TeXtPlusProfessional(.info|%) "${Schublade}"
; Die Dokumentation wird entpackt.
$LHAbin $LangArc doc/#? "${Schublade}"
Set DocVorgabe "S:"
Lab DocAnfang
; In welchem Verzeichnis soll `TPP.guide' landen?
Echo "*NBitte wählen Sie das Verzeichnis aus, in das"
Echo "die HyperText-Dokumentation installiert werden soll."
Echo "Schublade (<Return> = $DocVorgabe) ? " NoLine
; Vorherigen Wert löschen
UnSet DocSchublade
; Zielschublade einlesen
Set >NIL: DocSchublade ?
; Falls nur <Return> gedrückt wurde, wird der Vorgabewert verwendet
If "$DocSchublade" EQ "*$DocSchublade"
Set DocSchublade $DocVorgabe
EndIf
; Jetzt wird nachgeprüft, ob wir es mit einem Pfad inklusive eines
; Schubladennamens, oder mit einem Wurzelverzeichnis zu tun haben.
FailAt 21
Assign >NIL: ${DocSchublade} Exists
If FAIL
FailAt 10
; Existiert die Schublade bereits?
If NOT EXISTS $DocSchublade
FailAt 21
; Versuchen wir, die Schublade anzulegen.
MakeDir "$DocSchublade"
; Das war nichts ...
If FAIL
Echo "*NDie Schublade $DocSchublade konnte nicht angelegt werden!"
FailAt 10
; Nochmal das ganze, bitte.
Skip Back DocAnfang
EndIf
EndIf
EndIf
; Die HyperText-Dokumentation wird kopiert
Copy ${Schublade}doc/TPP.guide(.info|%) $DocSchublade Clone Quiet
; und gelöscht
Delete >NIL: ${Schublade}doc/TPP.guide(.info|%)
; Der Handler wird entpackt
$LHAbin $LangArc l/TeXtPlus-Handler L:
; Die Configurationsdateien werden installiert
; Alte Configrationsdateien werden gerettet
If $Update EQ Ja
If Exists ${Schublade}config
Rename >NIL: ${Schublade}config ${Schublade}config.old
Endif
Endif
; Installieren
$LHAbin $LangArc config/#? ${Schublade}
; ------------------------------------------------------------
; Installation der globalen Dateien
; Parsedateien installieren
; Alte Parsedateien retten
If $Update EQ Ja
If Exists ${Schublade}parse
Rename >NIL: ${Schublade}parse ${Schublade}parse.old
Endif
Endif
; alles entpacken
$LHAbin $GlobArc #? ${Schublade}
; Das LiesMich-File wird kopiert
Copy LiesMich(.info|%) ${Schublade}doc Quiet Clone
; Das History-File wird kopiert
Copy History(.info|%) ${Schublade}doc Quiet Clone
; Die powerpacker.library (35.344) und die
; reqtools.library (38.961) von Nico François
; werden kopiert
FailAt 21
; Wenn eine neuere Version bereits installiert ist, wird die
; reqtools.library nicht überschrieben
Version >NIL: reqtools.library 38 961
If Warn
Copy ${Schublade}libs/reqtools.library libs: Quiet Clone
endif
; Wenn eine neuere version bereits installiert ist, wird die
; powerpacker.library nicht überschrieben
Version >NIL: powerpacker.library 35 344
If Warn
Copy ${Schublade}libs/powerpacker.library libs: Quiet Clone
endif
; und aufräumen
Delete >NIL: ${Schublade}libs All
; Hat unser User eine REXX:-Schublade?
If NOT EXISTS REXX:
; unser User ist leider eine Pappnase
Echo "*NEs existiert kein REXX:-Verzeichnis!"
Echo "Die ARexx-Makros von TPP werden nicht installiert."
Echo "Um die Makros dennoch zu installieren, müssen Sie"
Echo "dieses Script zum zweiten Mal aufrufen, und zwar"
Echo "NACHDEM Sie ARexx installiert haben!"
Echo "Ohne ARexx ist ein sinnvolles Arbeiten mit TPP nicht"
Echo "möglich!"
Set ARexxIstInstalliert Nein
EndIf
; Pappnasen brauchen keine Makros
If NOT $ARexxIstInstalliert EQ Nein
; Die ARexx-Makros werden kopiert
Copy ${Schublade}rexx/tpl rexx:tpl All Quiet Clone
Copy ${Schublade}rexx/#?.tpl rexx: All Quiet Clone
Copy ${Schublade}rexx/#?.sd rexx: All Quiet Clone
; und aufräumen
Delete >NIL: ${Schublade}rexx All
EndIf
; Ist PaxTeX installiert?
IF NOT EXISTS TeX:macros
; Die Pappnase hat wieder zugeschlagen ...
Echo "*NEs existiert kein Verzeichnis 'TeX:macros'!"
Echo "Die TeX-Makros von TPP werden nicht installiert."
Echo "Um die Makros dennoch zu installieren, müssen Sie"
Echo "dieses Script zum zweiten Mal aufrufen, und zwar"
Echo "NACHDEM Sie PasTeX installiert haben!"
Echo "Ohne die TeX-Makros können keine Dokumente kompiliert"
Echo "oder ausgedruckt werden!"
Set PasTeXIstInstalliert Nein
EndIf
; Ohne TeX haben wir leider verloren
If NOT $PasTeXIstInstalliert EQ Nein
; Die TeX-Makros werden kopiert
Copy ${Schublade}tex/macros TeX:macros All Quiet Clone
; und aufraümen
Delete >NIL: ${Schublade}tex/macros All
EndIf
; Kann MakeIndex installiert werden?
IF NOT EXISTS TeX:bin
; Die Pappnase sollte besser Gameboy spielen gehen.
Echo "*NEs existiert kein Verzeichnis 'TeX:bin'!"
Echo "MakeIndex wird nicht installiert."
Echo "Um MakeIndex dennoch zu installieren, müssen Sie"
Echo "dieses Script zum zweiten Mal aufrufen, und zwar"
Echo "NACHDEM Sie PasTeX installiert haben!"
Echo "Ohne MakeIndex kann kein Index erstellt"
Echo "werden!"
Set MakeIndexIstInstalliert Nein
EndIf
; Schon wieder verloren?
If NOT $MakeIndexIstInstalliert EQ Nein
; MakeIndex wird kopiert
Copy ${Schublade}tex/bin/MakeIndex TeX:bin Quiet Clone
; und aufraümen
Delete >NIL: ${Schublade}tex/bin All
EndIf
; Schluß
Echo "*NDie Installation von TeXt Plus Professional ist"
Echo "abgeschlossen. Sie müssen nur noch folgende Zeile"
Echo "in Ihre S:Startup-Sequence oder S:User-Startup"
Echo "einfügen:"
Echo "*NAssign TPP: $Startpfad"
; zum Schluß nerven wir noch ein bißchen
IF $ARexxIstInstalliert EQ Nein
Echo "*NVergessen Sie nicht, die ARexx-Makros zu installieren!"
EndIf
IF $PasTeXIstInstalliert EQ Nein
Echo "*NVergessen Sie nicht, die PasTeX-Makros zu installieren!"
EndIf
IF $MakeIndexIstInstalliert EQ Nein
Echo "*NVergessen Sie nicht, MakeIndex zu installieren!"
EndIf
; Wir führen das benötigte Assign schon mal aus
Assign >NIL: TPP: "$Startpfad"
Echo "*NViel Spaß mit TeXt Plus Professional!"